﻿Public Class Form1
  Private Sub Form1_Load(ByVal sender _
          As System.Object, _
          ByVal e As System.EventArgs) _
          Handles MyBase.Load
    ' -- definizione di un oggetto 
    ' di tipo Size --:
    Dim dimensione As New Size
    ' -- dimensione massima --:
    dimensione.Width = 500 'larghezza massima
    dimensione.Height = 500 ' altezza massima
    ' assegnazione dell'oggetto Size 
    ' alla proprietà che fissa le dimensioni 
    ' massime del form
    Me.MaximumSize = dimensione
    ' -- dimensione minima --:
    dimensione.Width = 250 ' larghezza minima
    dimensione.Height = 250 ' altezza minima
    ' assegnazione dell'oggetto Size alla
    ' proprietà che fissa le dimensioni
    ' minime del form
    Me.MinimumSize = dimensione
  End Sub
End Class
